home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
earcd
/
grafica
/
ppaint-demo
/
rexx
/
vectorfontpath.pprx
< prev
next >
Wrap
Text File
|
1997-05-06
|
4KB
|
126 lines
/* Personal Paint Amiga Rexx script - Copyright © 1996, 1997 Cloanto Italia srl */
/* $VER: VectorFontPath.pprx 1.0 */
/** ENG
This script selects the directory path used by macros working with
vector fonts, such as "Vector Text" and "Text Whirlpool".
The selected path must contain vector font description files with names
ending with ".otag".
By default, the Amiga uses vector fonts in the Compugraphic file format.
Non-Amiga Compugraphic fonts can be installed using the Intellifont
tool which is part of the operating system. Other types of fonts, such
as Adobe Type 1 fonts, can also be used, if the appropriate libraries
have been installed. Digita's Wordworth package, for example, includes
such fonts and libraries. The path for Wordworth fonts, which can be
selected with this script, is "Wordworth:WwFonts/UFST".
*/
/** DEU
Dieses Skript dient zur Auswahl des Verzeichnispfads für Makros,
zu deren Ausführung Vektorschriften erforderlich sind, z.B.
"VektorText" und "Text Whirlpool".
Unter dem ausgewählten Pfad müssen Dateien gespeichert sein, deren
Namen die Endung ".otag" aufweist.
Der Amiga verwendet standardmäßig Vektorschriften im sog. "Compugraphic"-Format.
Nicht im Amiga-Format vorliegende Compugraphic-Fonts lassen sich mit Hilfe
des Hilfsprogramms Intellifont installieren, welches Bestandteil der
Amiga-Systemsoftware ist. Vorausgesetzt, daß die entsprechenden Libraries
vorhanden sind, lassen sich auch andere Fontformate (z.B. Adobe Typ 1)
einsetzen. Diese Libraries (und dazugehörige Fonts) befinden sich z.B. im
Lieferumfang der Textverarbeitung Wordworth von Digita. Der mit diesem
Skript einzustellende Pfad zu den Wordworth-Fonts würde z.B. folgendermaßen
aussehen: "Wordworth:WwFonts/UFST".
*/
/** ITA
Questo script consente di selezionare il percorso per i font usato dalle
macro che operano su font vettoriali, come "Vector Text" e "Text Whirlpool".
Il percorso selezionato deve contenere file di descrizione font vettoriali,
riconoscibili dal suffisso ".otag".
Per impostazione predefinita, Amiga usa font vettoriali in formato
Compugraphic. Si possono installare font Compugraphic non Amiga utilizzando
lo strumento Intellifont che è parte del sistema operativo. Altri tipi di
font, come quelli Adobe Type 1, possono essere utilizzati, se sono state
installate le opportune librerie. Il pacchetto Wordworth della Digita, per
esempio, include tali font e librerie. Il percorso per i font di Wordworth,
che si può selezionare con questo script, è "Wordworth:WwFonts/UFST".
*/
IF ARG(1, EXISTS) THEN
PARSE ARG PPPORT
ELSE
PPPORT = 'PPAINT'
IF ~SHOW('P', PPPORT) THEN DO
IF EXISTS('PPaint:PPaint') THEN DO
ADDRESS COMMAND 'Run >NIL: PPaint:PPaint'
DO 30 WHILE ~SHOW('P',PPPORT)
ADDRESS COMMAND 'Wait >NIL: 1 SEC'
END
END
ELSE DO
SAY "Personal Paint could not be loaded."
EXIT 10
END
END
IF ~SHOW('P', PPPORT) THEN DO
SAY 'Personal Paint Rexx port could not be opened'
EXIT 10
END
ADDRESS VALUE PPPORT
OPTIONS RESULTS
OPTIONS FAILAT 10000
Get 'LANG'
IF RESULT = 1 THEN DO /* Deutsch */
req_title = 'Pfad für Vektorfonts auswählen'
txt_err_oldclient = 'Für dieses Skript_ist eine neuere Version_von Personal Paint erforderlich'
END
ELSE IF RESULT = 2 THEN DO /* Italiano */
req_title = 'Percorso font vettoriali'
txt_err_oldclient = 'Questa procedura richiede_una versione più recente_di Personal Paint'
END
ELSE DO /* English */
req_title = 'Select the vector font path'
txt_err_oldclient = 'This script requires a newer_version of Personal Paint'
END
Version 'REXX'
IF RESULT < 7 THEN DO
RequestNotify 'PROMPT "'txt_err_oldclient'"'
EXIT 10
END
set_fname = 'ENV:PP_VectorPath'
list_fname = 'ENV:PP_VectorFonts'
LockGUI
IF OPEN('settingfile', set_fname, 'R') THEN DO
spath = READCH('settingfile', 65535)
CALL CLOSE('settingfile')
END
ELSE spath = 'FONTS:'
RequestPath '"'req_title'" "'spath'"'
IF RC = 0 THEN DO
PARSE VALUE RESULT WITH '"' path '"'
IF OPEN('settingfile', set_fname, 'W') THEN DO
WRITECH('settingfile', path)
CALL CLOSE('settingfile')
IF spath ~= path THEN
ADDRESS COMMAND 'Delete >NIL: "'list_fname'"'
END
END
UnlockGUI